home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 1.iso / pc / data / shared.dir / 00780.ls < prev    next >
Encoding:
Text File  |  1996-09-06  |  1.5 KB  |  45 lines
  1. on printText textString
  2.   if the machineType = 256 then
  3.     set printingFont to "arial"
  4.     set XObjFile to "pmatic.dll"
  5.   else
  6.     set printingFont to "helvetica"
  7.     set XObjFile to "pmatic.xobj"
  8.   end if
  9.   openXLib(XObjFile)
  10.   set printer to PrintOMatic(mnew)
  11.   if not objectp(printer) then
  12.     alert("There is no currently selected printer. Printing features are disabled.")
  13.   else
  14.     printer(mRegister, "PMAT130-915-01021")
  15.     printer(mSetMargins, 72, 72, 72, 100)
  16.     set w to printer(mGetPageWidth)
  17.     set h to printer(mGetPageHeight)
  18.     printer(mSetPageNumSymbol, "√û")
  19.     printer(mSetTextFont, printingFont)
  20.     printer(mSetTextSize, 10)
  21.     printer(mSetTextStyle, "normal,italic")
  22.     printer(mSetTextJust, "left")
  23.     printer(mDrawText, "Copyright Sky Media/Discovery House Publishers, 1996", 0, h + 40)
  24.     printer(mSetTextJust, "center")
  25.     printer(mDrawText, "page √û", (w / 2) + 80, h + 40)
  26.     printer(mSetTextJust, "right")
  27.     printer(mDrawText, "printed" && the date, w, h + 40)
  28.     printer(mLine, 0, h + 20, w, h + 20)
  29.     printer(mSetProgressMsg, "Now Printing Discovery Interactive Document")
  30.     printer(mSetTextJust, "left")
  31.     printer(mSetTextFont, printingFont)
  32.     printer(mSetTextSize, 10)
  33.     printer(mSetTextStyle, "normal")
  34.     printer(mNewPage)
  35.     printer(mTextBox, 0, 0, w, h, 0)
  36.     printer(mSetText, textString, 1)
  37.     if printer(mDoJobSetup) = 1 then
  38.       updateStage()
  39.       printer(mPrint)
  40.     end if
  41.     printer(mdispose)
  42.   end if
  43.   closeXLib(XObjFile)
  44. end
  45.